with Ada.Text_IO ; use Ada.Text_IO ;
with Ada.Float_Text_IO ; use Ada.Float_Text_IO ;

procedure Prix is 
   
   TxChange : constant := 6.55957;
   TVA : constant  := 19.6/100;
   PrixFrancHT : Float := 0.00;
   PrixEuroTTC : Float := 0.00;
   
begin 
   Put("Donnez un prix en franc HT >");
   Get(PrixFrancHT);
   PrixEuroTTC := (PrixFrancHT/TxChange)*(1.00+TVA);
   Put("le prix en euros TTC : ");
   Put(PrixEuroTTC);
end Prix;
